home *** CD-ROM | disk | FTP | other *** search
Wrap
<% on error resume next dim SecurityBox if (Session("Index") <> "Index") then Response.Redirect "index.asp" else set SecurityBox = Server.CreateObject("AdvFusionBox.FusionBox") end if %> <!--- #include file = "index.js" ---> <html> <head> <title>ASPFusion Security Box Administration</title> </head> <body bgcolor="#CAE4FF"> <form action="act_welcome.asp" Method="POST" NAME="welcomeform"> <div align="right"> <table width="70%" align="left"> <tr width="100%" align="right"> <td><a href="javascript:submit(document.welcomeform, document.welcomeform.Logout, 'Logout')" onmouseover="window.status='Logout'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Logout</font></a></td> </tr> <tr width="100%" align="right"> <td><a href="dsp_changepassword.asp" onmouseover="window.status='Change Password'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Change Password</font></a></td> </tr> <tr width="100%" align="right"> <td><a href="dsp_registration.asp" onmouseover="window.status='Registration'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Registration</font></a></td> </tr> <tr width="100%" align="right"> <td><a href="dsp_default.asp" onmouseover="window.status='Default'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Default</font></a></td> </tr> <tr width="100%" align="right"> <td><a href="dsp_websitesecurity.asp" onmouseover="window.status='Web Site Security'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Web Site Security</font></a></td> </tr> </table> <table cellpadding="0" cellspacing="1" width="25%"> <tr width="100%" align="right"> <td><img src="Images/aspfusion.gif"></td> </tr> </table> </div> <br> <table width="100%" cellpadding="0"> <input type="hidden" value="" name="Logout"> <input type="hidden" value="" name="Apply"> <tr> <td><br> <%if Request.QueryString("result") = "0" then%> <p align="left"><font color="#FF0000" face="Arial" size="2"><b><%=Session("Error")%></b></p> <%else%> <p> </p> <%end if%> </td> </tr> <tr> <td><br> <input type="checkbox" name="SecurityBox" value="ON" <%set Result = SecurityBox.GetRegVal("", "EnableSecurityBox", "DWORD") if (Result.Value = 1) then%> CHECKED <%end if set Result = nothing%>><font face="Arial" size="2">Use ASPFusion Security Box</font> </td> </tr> <tr> <td> <font face="Arial" size="2" color="#9D9D9D">Check this box to make ASPFusion Security Box enable, otherwise there will be no restriccion on usage of any ASPFusion component.</font> </td> </tr> <tr> <td><br> <b><font face="Arial" size="3" color="#000080">Select Components for ASPFusion Security Box</font></b> </td> </tr> <tr> <td> <font face="Arial" size="2" color="#9D9D9D">Check the box against each ASPFusion component to make ASPFusion Security Box enable for that component, otherwise that component will be free to use.</font> </td> </tr> <tr> <td><br> <input type="checkbox" name="SelectAll" value="ON" onclick="return selectall(document.welcomeform, document.welcomeform.Components);"><b><font face="Arial" size="3" color="#000080">Select All</font></b> </td> </tr> <tr> <td> <%set Result = SecurityBox.ReturnValues("Admin.ini", "Settings", "Installed") set Rst = SecurityBox.ReturnValues("Admin.ini", "Settings", "Applied")%> <table width="100%" cellpadding="5" cellspacing="5"> <%dim count dim number count = 0 number = 0 for each Member in Result number = number + 1 if (count = 0) then%> <tr> <%end if count = count + 1%> <td valign="top"><b><font face="Arial" size="2"><%=number&"."%></font></b></td> <td valign="top"><INPUT Name="Components" Type="checkbox" value="<%=member.value%>" <%for each mem in Rst%> <%if (member.value = mem.value) then%> checked <%end if next%>><font face="Arial" size="2"><%=member.value%></font></td> <%if (count = 4) then%> </tr> <%count = 0%> <%end if next if (number = 0) then%> <INPUT type="hidden" Name="Components"> <%end if set Rst = nothing set Result = nothing%> </table> </td> </tr> <!--- ASP Include Start Mark ---> <!--- #include file = 'dsp_admin_AdvIMAP4.asp' ---> <!--- #include file = 'dsp_admin_AdvSMTP.asp' ---> <!--- ASP Include End Mark ---> <tr> <td><br> <b><font face="Arial" size="3" color="#000080">Update Status</font></b> </td> </tr> <%set Result1 = SecurityBox.GetAllSectionKeys("Admin.ini", "Updates") dim Flag Flag = false%> <%for each Member1 in Result1 Flag = true%> <tr> <td> <A HRef="<%=member1.value%>"><FONT Face="Arial" Size="2"><b><%=member1.Key%></b></A></FONT> </td> </tr> <%next if (not Flag) then%> <tr> <td> <FONT Face="Arial" Size="2" color="#9D9D9D"><%="All components are uptodate"%></FONT> </td> </tr> <%end if set Result1 = nothing%> <tr> <td><br> <input type="checkbox" name="UpdateInformation" value="ON" <%set Result = SecurityBox.GetRegVal("", "UpdateInformation", "DWORD") if (Result.Value = 1) then%> CHECKED <%end if set Result = nothing%>><font face="Arial" size="2">Update Information</font> </td> </tr> <tr> <td> <font face="Arial" size="2" color="#9D9D9D">Check this box to get informed whenever a new version of any currently installed component is released.</font> </td> </tr> <tr> <td><br> <b><font face="Arial" size="3" color="#000080">New Components</font></b> </td> </tr> <%set Result1 = SecurityBox.GetAllSectionKeys("Admin.ini", "NewComponents") Flag = false%> <%for each Member1 in Result1 Flag = true%> <tr> <td> <A HRef="<%=member1.value%>"><FONT Face="Helvetica" Size="2"><b><%=member1.Key%></b></A></FONT> </td> </tr> <%next if (not Flag) then%> <tr> <td> <FONT Face="Arial" Size="2" color="#9D9D9D"><%="No new component is available"%></FONT> </td> </tr> <%end if set Result1 = nothing%> <tr> <td><br> <input type="checkbox" name="NewInformation" value="ON" <%set Result = SecurityBox.GetRegVal("", "NewInformation", "DWORD") if (Result.Value = 1) then%> CHECKED <%end if set Result = nothing%>><font face="Arial" size="2">New Component Information</font> </td> </tr> <tr> <td> <font face="Arial" size="2" color="#9D9D9D">Check this box to get informed whenever a new component is released.</font> </td> </tr> <%set SecurityBox = nothing%> </table> <br> <table cellpadding="0" cellspacing="1" width="25%"> <tr width="100%" align="left"> <td><a href="javascript:submit(document.welcomeform, document.welcomeform.Apply, 'Apply')" onclick="return welcome_checkit();" onmouseover="window.status='Apply'; return true" onmouseout="window.status='';return true"><img src="Images/apply.gif" border="0"></a></td> </tr> </table> <table align="center" width="100%"> <tr> <td align="center" valign="bottom"> <font face="Arial" color="#000000" size="1">Copyright ⌐ 2000, Advanced Communications</font> </td> </tr> </table> </form> </body> </html>